home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / UVE138.ZIP / EXAMPLES.ZIP / BENCH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-13  |  996 b   |  40 lines
  1. {$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
  2. {$M 16384,0,655360}
  3.  
  4. {
  5. BENCH.PAS
  6. Benchmarking program.
  7. }
  8.  
  9. uses     crt,uve32;
  10.  
  11. var    c1,c2,c3:longint;
  12.     systime,vgatime:longint;
  13.     i:integer;
  14. begin
  15.     ia_inituve;
  16.     writeln;
  17.     writeln('Screen will blank for the duration of the test.');
  18.     writeln('Test can take up to 60 seconds.');
  19.     writeln('Waiting for disk caches to empty...');
  20.  
  21.     delay(5000);
  22.     ia_powerup;
  23.     c1:=clock;
  24.     for i:=1 to 20 do ia_copypage(background,hidden);
  25.     c2:=clock;
  26.     for i:=1 to 20 do ia_copypage(hidden,vga);
  27.     c3:=clock;
  28.     ia_shutdown;
  29.  
  30.     systime:=(c2-c1) div 20;
  31.     vgatime:=(c3-c2) div 20;
  32.     textcolor(7);
  33.  
  34.     writeln('System memory to system memory copy : ',systime,' milliseconds per frame.');
  35.     writeln('System memory to VGA memory copy    : ',vgatime,' milliseconds per frame.');
  36.     writeln('Maximum no-load framerate           : ',1000 div (vgatime+systime),' frames per second.');
  37.     writeln;
  38.     writeln('Press a key.');
  39.     repeat until keypressed;
  40. end.